home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / clipper / clipwndw.zip / CWINDOW.PRG < prev    next >
Text File  |  1990-05-08  |  20KB  |  604 lines
  1. ***********************************************************************
  2. * 
  3. * These are a group of functions that I wrote for Clipper.  They
  4. * enable me to use a very SIMPLE windowing system to approach the
  5. * user. I am letting anyone use this, just mention me in your program.
  6. * I should warn you that the following code is pure Clipper and needs to
  7. * be extended. 
  8. *
  9. * Use, enhance and develop, then buy a good 'C' compiler and do
  10. * your databasing in that. spelled 'see code base 4'.
  11. * You can define GOOD.
  12. *
  13. *
  14. * If you need help or just have a question you can contact me at
  15. * 
  16. *
  17. * Robert Innes
  18. * (701) 293-8739            Home after 6
  19. * innes @ plains            internet address
  20. * rinnes @ extnet.plains.edu
  21. *
  22. *
  23. * If I am not there. 
  24. * Please note the date and remember people do move on. ENJOY !!
  25. ***************************************************************************
  26.  
  27.  
  28.  
  29. *:**********************************************************************:
  30. *:        Program: CWINDOW.PRG
  31. *:
  32. *:         System: Window Library for Clipper
  33. *:         Author: Robert Innes
  34. *:  Last modified: 06/08/89     10:12
  35. *:
  36. *:  Procs & Fncts: WCOLOR()        -       set the colors for a window
  37. *:               : MAKE_WINDOW()   -       build and show a window
  38. *:               : WTITLE()        -       title a window
  39. *:               : WSAYAT()        -       put a string, with clipping in a window
  40. *:               : WMENU()         -       display a windowed' achoice
  41. *:               : REMOVE_WINDOW() -       delete a window, restore if needed
  42. *:               : HOME_CURSOR     -       set the cursor to home
  43. *:               : WTRUNC_STR()    -       internal string truncation
  44. *:               : INRANGE()       -       see if coords are valid internal
  45. *:               : WGOTOXY         -       got to a point in a window
  46. *:               : WMESSAGE        -       pop up a message, various levels
  47. *:
  48. *:*********************************************************************
  49. *               Window Library For Clipper
  50. *
  51. *    DECLARE a Public STRING ARRAY
  52. *
  53. *    window[1] - Top of Window
  54. *    window[2] - Left of Window
  55. *    window[3] - Bottom of Window
  56. *    window[4] - Right of Window
  57. *    window[5] - ForeGround Color of Window
  58. *    window[6] - Background Color of Window
  59. *    window[7] - Title of Window
  60. *    window[8] - Does it Have a Shadow ?
  61. *    window[9] - Current Row of Cursor
  62. *    window[10]- Current Column of Cursor
  63. *    window[11]- Old Row of Cursor
  64. *    window[12]- Old Column of Cursor
  65. *    window[13]- Save contents under window ?
  66. *    window[14] - Window Save Buffer
  67. *
  68.  
  69.  
  70.  
  71. *
  72. *       Public Defines for window Routines
  73. *
  74. * YES, virginia, you need these.  
  75. *
  76.  
  77. PUBLIC shadow, noshadow, shadow_color, saveit, notsave, choic
  78. shadow =  1
  79. noshadow = 0
  80. shadow_color = '+/W'
  81. saveit = 1                                       
  82. notsave = 0
  83.  
  84. *
  85. * Currently all windows have double borders 'cause I was to lazy
  86. * to do any others.
  87. *
  88.  
  89. DOUBLE = CHR(201) + CHR(205) + CHR(187) + CHR(186) + CHR(188) + CHR(205) +;
  90. CHR(200) + CHR(186) + CHR(32)
  91.  
  92. ******************************************************
  93. * 
  94. * The following code is the test procedure. This can
  95. * be taken out when you get the hang of it.
  96. *
  97. * or use the preprocessor you have when you bought
  98. * that GOOD 'C' compiler. ;-)
  99. ******************************************************
  100.  
  101.  
  102.  
  103. PUBLIC win1[14], menu1[20], menuv[20]            && DEFINE PUBLIC VARIABLES
  104.  
  105. menu1[1] = 'Number 1'                            && wpop menu
  106. menu1[2] = 'Number 2'                            && wpop menu
  107. menu1[3] = 'Number 3'                            && wpop menu
  108. menu1[4] = 'Number 4'                            && wpop menu
  109. menu1[5] = 'Number 5'                            && wpop menu
  110. menu1[6] = 'Number 6'                            && wpop menu
  111. menu1[7] = 'Number 7'                            && wpop menu
  112. menu1[8] = 'Number 8'                            && wpop menu
  113. menu1[9] = 'Number 9'                            && wpop menu
  114. menu1[10] = 'Number 10'                          && wpop menu
  115. menu1[11] = 'Number 11'                          && wpop menu
  116. menu1[12] = 'Number 12'                          && wpop menu
  117. menu1[13] = 'Number 13'                          && wpop menu
  118. menu1[14] = 'Number 14'                          && wpop menu
  119. menu1[15] = 'Number 15'                          && wpop menu
  120. menu1[16] = 'Number 16'                          && wpop menu
  121. menu1[17] = 'Number 17'                          && wpop menu
  122. menu1[18] = 'Number 18'                          && wpop menu
  123. menu1[19] = 'Number 19'                          && wpop menu
  124. menu1[20] = 'Number 20'                          && wpop menu
  125.  
  126. *
  127. *  If an option is set to false then it is displayed but not 
  128. *  selectable. See achoice in the clipper manual.
  129. *
  130.  
  131. menuv[1] = .T.                                   && wpop menu
  132. menuv[2] = .T.                                   && wpop menu
  133. menuv[3] = .T.                                   && wpop menu
  134. menuv[4] = .T.                                   && wpop menu
  135. menuv[5] = .F.                                   && wpop menu
  136. menuv[6] = .T.                                   && wpop menu
  137. menuv[7] = .F.                                   && wpop menu
  138. menuv[8] = .T.                                   && wpop menu
  139. menuv[9] = .T.                                   && wpop menu
  140. menuv[10] = .T.                                  && wpop menu
  141. menuv[11] = .T.                                  && wpop menu
  142. menuv[12] = .T.                                  && wpop menu
  143. menuv[13] = .T.                                  && wpop menu
  144. menuv[14] = .T.                                  && wpop menu
  145. menuv[15] = .T.                                  && wpop menu
  146. menuv[16] = .T.                                  && wpop menu
  147. menuv[17] = .T.                                  && wpop menu
  148. menuv[18] = .T.                                  && wpop menu
  149. menuv[19] = .T.                                  && wpop menu
  150. menuv[20] = .T.                                  && wpop menu
  151.  
  152. win1[1] = STR(5)
  153. win1[2] = STR(5)
  154. win1[3] = STR(20)
  155. win1[4] = STR(40)
  156. win1[8] = STR(shadow)
  157. win1[13]= STR(saveit)
  158. wcolor( win1, 'BG', ' ')
  159. win1[14] = make_window( win1 )
  160. wtitle(win1, 'This is window Number 1')
  161. wsayat( win1, 5, 5, 'A String')
  162. wsayat( win1, 6, 5, 'A Very Very Long String That Should Not Print Far' )
  163.  
  164. wmessage(10, 10, 'Just a Note', 1)
  165. wmessage(10, 10, 'Just a Warning, Improper Input', 2)
  166. wmessage(10, 10, 'Error has Occured', 3)
  167. wmessage(10, 10, 'Everything is OK', 9)
  168.  
  169. choic = wpop_menu( 5, 5, 'Choices', 20, menu1, menuv )
  170. wsayat( win1, 7, 5, 'Choice = ' + LTRIM(STR(choic) ) )
  171. INKEY(0)
  172. remove_window( win1 )
  173.  
  174. RETURN                                           && return to calling program
  175.  
  176. *!*********************************************************************
  177. *!
  178. *!       Function: MAKE_WINDOW()
  179. *!
  180. *!      Called by: CWINDOW.PRG
  181. *!               : WMENU()        (function  in CWINDOW.PRG)
  182. *!               : WMESSAGE       (procedure in CWINDOW.PRG)
  183. *!
  184. *!          Calls: HOME_CURSOR    (procedure in CWINDOW.PRG)
  185. *!
  186. *!*********************************************************************
  187. FUNCTION make_window
  188.    PARAMETERS WINDOW
  189.  
  190.    PRIVATE wtop, wright, wbot, wleft, Buffer, shadow_bot, shadow_right, old_color  && DEFINE PRIVATE VARIABLES
  191.    PRIVATE wcolor                                && DEFINE PRIVATE VARIABLES
  192.    PRIVATE TOP, RIGHT, bot, LEFT                 && DEFINE PRIVATE VARIABLES
  193.  
  194.    *
  195.    *       Convert window values to integer
  196.    *
  197.    TOP = VAL(WINDOW[1])
  198.    LEFT = VAL(WINDOW[2])
  199.    bot = VAL(WINDOW[3])
  200.    RIGHT = VAL(WINDOW[4])
  201.  
  202.  
  203.    *
  204.    *       Set up actual window;  inside minus border
  205.    *
  206.    wtop = VAL(WINDOW[1]) + 1
  207.    wleft = VAL(WINDOW[2]) + 1
  208.    wbot = VAL(WINDOW[3]) - 1
  209.    wright = VAL(WINDOW[4]) - 1
  210.  
  211.    *
  212.    *       Save the Window underneath
  213.    *
  214.    IF VAL(WINDOW[13]) == saveit
  215.       IF VAL(WINDOW[8]) == noshadow
  216.          Buffer = Savescreen( TOP, LEFT, bot, RIGHT )
  217.       ELSE